45 DIMB$(106),C$(106),A$(7,2),S%(8,2),H%(8,2)
50 GOSUB2350
60 POKE249,224:POKE250,204:POKE251,0:POKE252,64:POKE253,0:POKE254,0
70 POKE255,0:SYS51462:SYS51459
80 :
90 TE=50759:SP$="[160]                                    ":S=54272
92 FORX=STOS+24:POKEX,.:NEXT:POKES+24,15
100 P1=1:P2=2:CO=1:ZY=1
110 :
120 S%(5,1)=1:S%(5,2)=1
130 FORI=1TO106:READB$(I):NEXT:ZZ=106:GOSUB1150:POKE53280,6
140 SH=48:XP=2:YP=0:GOSUB2220
150 SYSTE,"200",267,25:SYSTE,"200",267,137
160 SYSTE,"0000",136,57:SYSTE,"0000",136,169
170 FORI=1TO2:XX(I)=93:ML(I)=0
180 SL(I)=200:H%(2,I)=1:P(I)=1:M$(I)="000"
190 FORL=1TO6:A$(L,I)=C$(CO):CO=CO+1:NEXT:FORL=1TO6
200 IFLEFT$(A$(L,I),1)<>"3"THEN230
210 LF=VAL(MID$(A$(L,I),2,1)):S%(LF,I)=1:GOSUB1940
220 A$(L,I)=C$(CO):CO=CO+1:GOTO200
230 NEXT:P1=2
240 SH=46:XP=2:YP=0:GOSUB2220:SH=49:YP=14:GOSUB2220
250 NEXT
260 P1=1
270 SH=47:XP=2:YP=14:GOSUB2220:SH=48:YP=0:GOSUB2220
280 A$(7,P1)=C$(CO):GOSUB1130:IFLEFT$(A$(7,P1),1)<>"3"THEN300
290 LF=VAL(MID$(A$(7,P1),2,1)):S%(LF,P1)=1:L=6:GOSUB1940:GOTO280
300 IFP1=2ANDNP=1THEN550
310 IFNP=2THENSYSTE,"HIT ANY KEY TO VIEW CARDS",7*8,104:POKE198,0:WAIT198,1:POKE198,0
320 SYSTE,SP$,16,104:GOSUB1790
330 SYSTE,"(D)ISCARD  (P)LAY CARD  (Q)UIT",4*8,104
340 GOSUB2190:SYSTE,SP$,16,104
350 IFX$<>"P"ANDX$<>"Q"ANDX$<>"D"THEN330
360 IFX$="Q"THEN2080
370 SYSTE,"WHICH ONE (1-7) OR 0 TO END",4*8,104
380 POKE198,0:WAIT198,1:GETY$:SYSTE,SP$,16,104
390 Y=VAL(Y$):REMGETOFFWHICHONE?
400 IFY>7ORY<1THEN330
410 GOSUB1820:IFX$<>"D"THEN430
420 B$(ZY)=A$(Y,P1):ZY=ZY+1:GOSUB700:GOTO650
430 LE$=LEFT$(A$(Y,P1),1):LF=VAL(MID$(A$(Y,P1),2,1))
440 FL=0:IFLE$="4"ANDP(P1)=0ANDLF*25<=SL(P1)ANDML(P1)+LF*25<1001THENFL=1
450 IFFL=1THENFORL=1TOLF:GOSUB1850:NEXT:GOSUB700:GOTO650
460 FL=0:IFLE$="1"ANDP(P2)=0ANDS%(LF,P2)=0THENFL=1
470 IFLE$="1"ANDP(P2)=0ANDS%(2,P2)=0ANDLF=5ANDSL(P2)=200THENFL=1
480 IFFL=1THENH%(LF,P2)=1:ONLFGOSUB1470,1380,1550,1300,1630
490 IFFL=1THENGOSUB700:GOTO650
500 FL=0:IFLE$="2"ANDH%(LF,P1)=1ANDLF<5THENFL=1
510 IFLE$="2"ANDLF=5ANDH%(5,P1)=1ANDP(P1)=0THENFL=1
520 IFFL=1THENH%(LF,P1)=0:ONLFGOSUB1510,1420,1590,1340,1710
530 IFFL=1THENGOSUB700:GOTO650
540 FORA=1TO20:POKE54296,.:POKE54296,15:NEXT:GOTO320
550 Q=0:IFML(P2)-ML(P1)>299THENGOSUB720:GOSUB800:GOSUB890:GOTO970
560 FL=0:IFP(P1)=1ANDML(P2)<701ANDML(P2)-ML(P1)<210THENFL=1
570 IFFL=1THENGOSUB890:GOSUB720:GOTO970
580 FL=0:IFP(P1)=1AND(ML(P2)>700ORML(P2)-ML(P1)>200)THENFL=1
590 IFFL=1THENGOSUB720:GOSUB890:GOTO970
600 FL=0:IFSL(P1)=75ANDML(P2)<801ANDML(P1)-ML(P2)>150THENFL=1
610 IFFL=1THENGOSUB890:GOSUB800:GOSUB720:GOTO970
620 FL=0:IFSL(P1)=75ANDML(P2)-ML(P1)>100THENFL=1
630 IFFL=1THENGOSUB720:GOSUB800:GOSUB890:GOTO970
640 GOSUB800:GOSUB720:GOSUB890:GOTO970
650 IFML(P1)=1000THEN2290:REMWINNER
660 IFP1=1THENP1=2:P2=1:SH=46:XP=2:YP=0:GOSUB2220:SH=49:YP=14:GOSUB2220:GOTO280
670 P1=1:P2=2
680 SH=47:XP=2:YP=14:GOSUB2220:SH=48:YP=0:GOSUB2220
690 GOTO280
700 A$(Y,P1)=A$(7,P1):SH=40:XP=32:YP=11:GOSUB2220
710 RETURN
720 IFP(P2)=1ORQ=1THENRETURN
730 FORY=1TO7
740 LF=VAL(MID$(A$(Y,P1),2,1)):FL=0
750 IFLEFT$(A$(Y,P1),1)="1"ANDS%(LF,P2)=0THENFL=1
760 IFLEFT$(A$(Y,P1),1)="1"ANDLF=5ANDSL(P2)=200ANDS%(2,P2)=0THENFL=1
770 IFFL=1THENH%(LF,P2)=1:ONLFGOSUB1470,1380,1550,1300,1630
780 IFFL=1THENQ=1:RETURN
790 NEXT:RETURN
800 IFP(P1)=1ORQ=1THENRETURN
810 HM=0:FORY=1TO7
820 LF=VAL(MID$(A$(Y,P1),2,1))
830 IFLEFT$(A$(Y,P1),1)="4"ANDLF*25<=SL(P1)THEN850
840 NEXT:GOTO870
850 IFLF*25>HM*25ANDML(P1)+LF*25<1001THENHM=LF:HC=Y
860 GOTO840
870 IFHM=0THENRETURN
880 FORL=1TOHM:GOSUB1850:NEXT:Y=HC:Q=1:RETURN
890 IFQ=1THENRETURN
900 FORY=1TO7
910 LF=VAL(MID$(A$(Y,P1),2,1)):FL=0
920 IFLEFT$(A$(Y,P1),1)="2"ANDH%(LF,P1)=1ANDLF<5THENFL=1
930 IFLEFT$(A$(Y,P1),1)="2"ANDLF=5ANDH%(5,P1)=1ANDP(P1)=0THENFL=1
940 IFFL=1THENH%(LF,P1)=0:ONLFGOSUB1510,1420,1590,1340,1710
950 IFFL=1THENQ=1:RETURN
960 NEXT:RETURN
970 IFQ=1THEN1120
980 FORY=1TO7:LF=VAL(MID$(A$(Y,P1),2,1))
990 IFLEFT$(A$(Y,P1),1)="2"ANDS%(LF,P1)=1THEN1110
1000 NEXT:FORY=1TO7:LF=VAL(MID$(A$(Y,P1),2,1))
1010 IFLEFT$(A$(Y,P1),1)="1"ANDS%(LF,P2)=1THEN1110
1020 NEXT:FORY=1TO7:FORX=1TO7
1030 IFA$(Y,P1)=A$(X,P1)THENNC=NC+1
1040 NEXT:IFNC>2THENNC=0:GOTO1110
1050 NC=0:NEXT:NC=0:FORY=1TO7
1060 IFLEFT$(A$(Y,P1),1)="4"ANDVAL(MID$(A$(Y,P1),2,1))*25<101THEN1110
1070 NEXT:FORY=1TO7:FORX=1TO7
1080 IFA$(Y,P1)=A$(X,P1)THENNC=NC+1
1090 NEXT:IFNC>1THENNC=0:GOTO1110
1100 NC=0:NEXT:NC=0:Y=INT(RND(1)*7)+1
1110 B$(ZY)=A$(Y,P1):ZY=ZY+1
1120 GOSUB700:GOTO650
1130 CO=CO+1:IFCO<>ZZ+1THENRETURN
1140 ZZ=ZY-1:ZY=1:CO=1
1150 SYSTE,"SHUFFLING THE DECK...",72,104
1152 FORI=1TOZZ:R=INT(RND(1)*ZZ)+1
1160 :
1170 IFB$(R)<>"1"THENC$(I)=B$(R):B$(R)="1":NEXTI:SYSTE,SP$,16,104:RETURN
1180 R=R+1:IFR=ZZ+1THENR=1
1190 GOTO1170
1200 DATA4841,1427,2331,3136,2133,4343,4442,1230
1210 DATA1128,2235,2534,4442,4343,2235,1529,4244,4145,1326,4343,4442,2534
1220 DATA2331,1529,4145,4244,4244,4841,2133,1230,3338,2331,4343,4442,2432
1230 DATA1529,2432,2331,2235,4244,4442,4343,4442,4145,4244,1529,1128
1240 DATA2534,3237,1326,2235,4343,4841,4442,4145,1230,4244,2432,3439
1250 DATA2534,2235,1128,4442,4343,2534,2133,4145,4244,4442,4343,2432
1260 DATA2534,2331,2235,1230,1427,2235,1326,2235,2235,4343,4442,2331
1270 DATA2235,2133,1230,4145,4841,4442,4343,2133,2235
1280 DATA4145,2235,2432,2133,4244,4145,4244,4442,4145,1427,2235,2432
1290 DATA4244,4145,2235
1300 REM******FLATTIRE******
1310 GOSUB1380:P(P2)=1
1320 XP=3:YP=3+(P2-1)*14:GOTO10000
1330 :
1340 REM*****FIXTHEFLAT*****
1350 GOSUB1420:P(P1)=0
1360 XP=3:YP=3+(P1-1)*14:GOTO10035
1370 :
1380 REM****REDLIGHT*****
1390 P(P2)=1:FORX=STOS+24:POKEX,0:NEXT:POKES+24,15:P(P2)=1:GOSUB10190
1400 XP=30:YP=2+(P2-1)*14:SH=1:GOSUB2220
1405 FORDL=1TO200:NEXT
1410 RETURN
1420 REM****GRNLIGHT*****
1422 FORAA=1TO4:IFH%(AA,P1)<>0THENRETURN
1423 NEXT
1430 P(P1)=0:FORX=STOS+24:POKEX,0:NEXT:POKES+24,15:P(P1)=0:GOSUB10205
1440 XP=30:YP=2+(P1-1)*14:SH=2:IFSL(P1)=75THENSH=50
1450 GOSUB2220
1455 FORDL=1TO200:NEXT
1460 RETURN
1470 REM****ACCIDENT****
1480 GOSUB1380:P(P2)=1
1490 XP=8:YP=5+(P2-1)*14:GOTO10125
1500 :
1510 REM*****REPAIRS*****
1520 GOSUB1420:P(P1)=0
1530 XP=8:YP=5+(P1-1)*14:GOTO10160
1540 :
1550 REM****NOGAS*****
1560 GOSUB1380:P(P2)=1
1570 XP=8:YP=2+(P2-1)*14:GOTO10055
1580 :
1590 REM*****FILLUP*****
1600 GOSUB1420:P(P1)=0
1610 XP=8:YP=2+(P1-1)*14:GOTO10090
1620 :
1630 REM*****SPEEDLIMIT****
1640 SL(P2)=75:SH=50:XP=30:YP=2+(P2-1)*14:GOSUB2220:POKES+5,0:POKES+6,0
1645 XP=267:YP=25+(P2-1)*112
1650 FORSL=200TO75STEP-5:SL$=MID$(STR$(SL),2)
1655 POKES+1,SL:POKES+4,17:POKES+4,0
1660 IFLEN(SL$)<3THENSL$=" "+SL$:GOTO1660
1670 SYSTE,SL$,XP,YP:SYSTE,"   ",XP,YP
1680 NEXT
1690 SYSTE," 75",XP,YP
1700 RETURN
1710 REM****ENDLIMIT*****
1720 SL(P1)=200:SH=2:XP=30:YP=2+(P1-1)*14:GOSUB2220:POKES+5,0:POKES+6,0
1725 XP=267:YP=25+(P1-1)*112
1730 FORSL=75TO200STEP5:SL$=MID$(STR$(SL),2)
1732 POKES+1,SL:POKES+4,17:POKES+4,0
1740 IFLEN(SL$)<3THENSL$=" "+SL$:GOTO1740
1750 SYSTE,SL$,XP,YP:SYSTE,"   ",XP,YP
1760 NEXT
1770 SYSTE,"200",XP,YP:SH=2:XP=30:YP=2+(P1-1)*14:GOSUB2220
1780 RETURN
1790 REM*****DRAWCARDSHERE*****
1800 XP=2:YP=11:FORI=1TO7:SH=VAL(RIGHT$(A$(I,P1),2)):GOSUB2220:XP=XP+5:NEXT
1810 RETURN
1820 REM*****GETCARDSOFF*****
1830 XP=2:YP=11:FORI=1TO7:SH=40:GOSUB2220:XP=XP+5:NEXT
1840 RETURN
1850 REM*****MILEAGEBOX*****
1860 ML(P1)=ML(P1)+25:M$(P1)=MID$(STR$(ML(P1)),2)
1870 IFLEN(M$(P1))<=3THENM$(P1)="0"+M$(P1):GOTO1870
1880 XP=16:YP=0+(P1-1)*14:T=20:IFRND(1)<.1THENT=57
1882 IFML(P1)=1000THENT=51
1884 FORX=STOS+24:POKEX,.:NEXT
1890 FORSH=TTOT+5:POKE54296,0:POKE54296,15
1900 GOSUB2220:IFT=51THENFORDL=1TO10:NEXT
1910 NEXT:IFT=51THENFORDL=1TO1000:NEXT:GOTO1930
1920 SH=20:GOSUB2220:SYSTE,M$(P1),136,(P1-1)*112+57
1930 RETURN
1940 XP=L*5+2:YP=11:FORT=1TO5:SH=40:GOSUB2220:SH=LF+35:GOSUB2220:NEXT
1950 REM****BLINKCARD****
1960 IFLF=1THENSH=16:XP=3:YP=9+(P1-1)*14:GOSUB2220
1970 IFLF=1THENIFH%(1,P1)=1THENH%(1,P1)=0:GOSUB1510:GOTO2050
1975 REM    IFLF=2THENSYS51459:PRINT"[147]"LF,H%(2,P1),H%(5,P1):STOP
1980 IFLF=2THENSH=17:XP=10:YP=9+(P1-1)*14:GOSUB2220
1990 IFLF=2THENIFH%(2,P1)=1THENH%(2,P1)=0:GOSUB1420
2000 IFLF=2ANDH%(5,P1)=1THENH%(5,P1)=0:GOSUB1710:GOTO2050
2010 IFLF=3THENSH=18:XP=19:YP=9+(P1-1)*14:GOSUB2220
2020 IFLF=3THENIFH%(3,P1)=1THENH%(3,P1)=0:GOSUB1590:GOTO2050
2030 IFLF=4THENSH=19:XP=26:YP=9+(P1-1)*14:GOSUB2220
2040 IFLF=4THENIFH%(4,P1)=1THENH%(4,P1)=0:GOSUB1340:GOTO2050
2050 FORT=1TO50:NEXT
2060 RETURN
2070 :
2080 SYSTE,"ARE YOU SURE YOU WANT TO QUIT [Y/N]",16,104
2082 POKE198,0:WAIT198,1:GETX$
2090 IFX$<>"[217]"ANDX$<>"Y"THENSYSTE,SP$,16,104:GOTO320
2095 SYS51459:PRINT"[147]"
2100 IFML(P1)>ML(P2)THENPRINTSPC(9)"[208]LAYER"P1"WAS WINNING.":GOTO2130
2110 IFML(P2)>ML(P1)THENPRINTSPC(9)"[208]LAYER"P2"WAS WINNING.":GOTO2130
2120 PRINTSPC(8)"[194]OTH PLAYERS WERE TIED."
2130 PRINT""SPC(10)"< [208]RESS ANY KEY >"
2132 POKE198,0:WAIT198,1:POKE198,0
2134 RESTORE:RUN
2160 I$="[193]"
2170 DIML$(6,24)
2180 REMINSTRUCTIONS
2190 POKE198,0:WAIT198,1:GETX$
2200 IFX$>"[192]"THENX$=CHR$(ASC(X$)-128)
2210 RETURN
2220 REMPLOTSHP#SHATXP,YP
2230 POKE249,224:POKE250,204
2240 POKE251,0:POKE252,64
2250 POKE253,XP:POKE254,YP
2260 POKE255,SH:SYS51462:AG=3.34
2270 RETURN
2280 :
2290 REMWEHADAWINNER
2300 PRINT"[147]":SYS51459:SH=63:XP=0:YP=0:GOSUB2220:SYS51459
2310 POKE53280,6:GOSUB3000:PRINT"[147]"
2320 SYS51459:SYS51459
2330 RESTORE
2340 RUN
2350 REMTITLESCREEN&OPTIONS
2360 POKE53281,1:POKE53280,6
2370 PRINT"[147]":PRINT"[146]         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
2380 PRINT"         }lOADSTAR pRESENTS}[144] "
2390 PRINT"         [173]`````````````````[189][144] "
2400 PRINT"                             "
2410 PRINT
2420 PRINT"  [154]                                   "
2430 PRINT"  [160]         [176]````````````[174][154]           [144] "
2440 PRINT"  [154]          } 1000 mILER } [154]          [144] "
2450 PRINT"  [154]          [173]````````````[189] [154]          [144] "
2460 PRINT"  [154]                         [154]          [144] "
2470 PRINT"  [154]                                   [144] "
2480 PRINT"  [154]     wRITTEN BY kAREN mIDDAUGH     [144] "
2490 PRINT"  [154]  [195]-64 CONVERSION BY [193]LAN [199]ARDNER  [144] "
2500 PRINT"  [154]                                   [144] "
2510 PRINT"  [154]            (C) 1987               [144] "
2520 PRINT"  [154]                                   [144] "
2530 PRINT"                                      "
2540 PRINT
2550 PRINT"        [1] ==> iNSTRUCTIONS"
2560 PRINT"        [2] ==> pLAY gAME"
2570 PRINT"        [3] ==> rETURN TO lOADSTAR"
2580 PRINT
2590 PRINT"        mAKE YOUR CHOICE..."
2600 PRINT"";
2610 :
2620 POKE198,0:WAIT198,1:GETK$
2630 IFK$<>"1"ANDK$<>"2"ANDK$<>"3"THEN2620
2640 IFK$="3"THEN2900
2650 IFK$="1"THEN2800
2660 PRINT"        [200]OW MANY PLAYERS (1-2)?        "
2670 POKE198,0:WAIT198,1:GETK$
2680 IFK$<>"1"ANDK$<>"2"THEN2660
2690 NP=VAL(K$)
2700 RETURN
2800 REMINSTR
2810 OPEN2,8,2,"1000MILES.INSTR"
2820 PRINT"[147]"SPC(9)"** [212]HOUSAND [205]ILER **[144]"
2830 GET#2,A$:IFA$<>"\"ANDA$<>"#"THENPRINTA$;:GOTO2830
2832 PRINT""SPC(13)"<PRESS A KEY>"
2833 POKE198,0:WAIT198,1:POKE198,0
2835 IFA$="\"THEN2820
2840 CLOSE2
2860 GOTO2350
2900 REMRETURNTOLS
2901 POKE56,160:CLR
2910 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
2912 IFER<>63THENPRINT"[147]":END
2914 LOAD"HELLO CONNECT",8
2915 END
3000 REMANIMATEWINSEQUENCE
3010 V=53248
3020 XP=15:YP=198:POKEV+21,0:POKEV+39,7:POKEV+16,1:POKEV+29,0:POKEV+23,0
3030 POKEV+28,0
3040 POKEV+40,1:POKE1016+52224,4
3050 POKEV,4:POKEV+1,176
3070 FORX=1TO3
3080 GOSUB3150:REMRUN
3090 GOSUB3220:REMJUMP
3100 NEXTX
3110 GOSUB3300:GOSUB10220
3120 SYS51459:POKEV+21,0
3130 RETURN
3150 REMRUN
3160 I=5:GOSUB3360:I=6:GOSUB3360:XP=XP+8
3170 I=7:GOSUB3360:POKE54296,15:POKE54296,0:I=8:GOSUB3360:XP=XP+8
3180 I=9:GOSUB3360:XP=XP+8
3190 I=10:GOSUB3360
3200 RETURN
3220 REMJUMP
3230 I=5:GOSUB3360:XP=XP+8:I=11:GOSUB3360:I=12:GOSUB3360:I=13:GOSUB3360
3240 XP=XP+8:YP=YP-2:I=13:GOSUB3360
3250 I=14:YP=YP-2:GOSUB3360:I=15:YP=YP-2:GOSUB3360:XP=XP+8
3260 I=16:GOSUB3360:I=17:GOSUB3360:XP=XP+8
3270 I=18:GOSUB3360:I=19:GOSUB3150
3280 I=20:GOSUB3360
3290 RETURN
3300 I=3:GOSUB3360:FORDL=1TO200:NEXT
3310 I=2:GOSUB3360:POKEV+1,YP-6:FORDL=1TO200:NEXT
3320 I=1:GOSUB3360:POKEV+1,YP-8:FORDL=1TO200:NEXT
3330 I=0:GOSUB3360:POKEV+1,YP-10:POKEV+16,0:POKEV,XP
3350 RETURN
3360 REMMOVEIT
3380 IFPEEK(53266)>150THEN3380
3390 POKE1017+52224,I
3400 POKEV+2,XP:POKEV+3,YP
3410 POKEV+21,3
3420 RETURN
10000 REMFLATTIRE
10005 POKES,.:POKES+1,12:POKES+5,8:POKES+6,8:POKES+4,129:POKES+4,128
10010 SH=4:GOSUB2220
10015 POKES+7,.:POKES+8,128:POKES+12,34:POKES+13,29:POKES+11,129
10020 FORK1=127TO48STEP-1:POKES+8,K1:FORK2=200TO0STEP-100:POKES+7,K2:NEXT
10025 POKES+11,128-(K1>125):NEXT:POKES+4,.:SH=5:GOSUB2220:POKES+11,.:RETURN
10030 :
10035 REMSPARETIRE
10040 POKES+5,66:POKES+6,.:FORK1=50TO75STEP2:POKES+1,K1:POKES+4,129:SH=4:GOSUB2220
10045 FORD=.TO100:NEXT:POKES+4,128:NEXT:POKES+4,.:SH=3:GOSUB2220:RETURN
10050 :
10055 REMOUTOFGAS
10060 CC=1:SH=7
10065 POKES+5,.:POKES+6,.:FORK1=200TO20STEP-2:POKES+1,K1:POKES+4,17:POKES+4,.
10070 CC=CC+1:IFCC=15THENCC=1:GOSUB2220:SH=SH+1
10075 NEXT
10080 RETURN
10085 :
10090 REMGAS
10095 CC=1:SH=11
10100 POKES+5,.:POKES+6,.:FORK1=20TO200STEP2:POKES+1,K1:POKES+4,17:POKES+4,.
10105 CC=CC+1:IFCC=15THENCC=1:GOSUB2220:SH=SH-1
10110 NEXT
10115 RETURN
10120 :
10125 REMACCIDENT
10130 :
10135 POKES+5,9:POKES+6,.:POKES+1,3:POKES+2,.:POKES+3,.:FORK2=100TO50STEP-.33
10140 POKES,K2:POKES+4,81:K2=K2:POKES+4,80:NEXT:X=ATN(ATN(4)):SH=14:GOSUB2220
10142 SH=15:GOSUB2220
10145 POKES,.:POKES+1,5:POKES+5,12:POKES+6,12:POKES+4,129
10150 FORDL=.TO2000:NEXT:POKES+4,.:RETURN
10155 :
10160 REMREPAIRS
10165 :
10170 POKES+5,6:POKES+6,6:POKES+14,.:POKES+15,99:POKES,.:POKES+1,55
10172 SH=14:GOSUB2200
10175 FORK1=.TO250:IFRND(1)<.1THENPOKES+4,19:POKES+4,18
10180 NEXT:POKES+4,.:FORDL=.TO200:NEXT:SH=13:GOSUB2220:RETURN
10185 :
10190 REMSTOP
10195 POKES+5,9:POKES+6,9:POKES,.:POKES+1,32:POKES+4,17:POKES+4,16:RETURN
10200 :
10205 REMROLL
10210 POKES+5,8:POKES+6,8:POKES,.:POKES+1,64:POKES+4,17:POKES+4,16:RETURN
10215 :
10220 REMCHEER
10222 FORX=STOS+24:POKEX,.:NEXT:POKES+24,15
10225 POKES+5,0:POKES+6,252:POKES+11,0:POKES+12,252:POKES+19,0:POKES+20,252
10230 POKES+4,129:POKES+11,129:POKES+18,129
10235 POKES+1,100:POKES+8,100:POKES+15,200
10240 FORDL=0TO2800:NEXT
10245 POKES+4,128:POKES+11,128:POKES+18,128:FORDL=1TO1500:NEXT
10250 POKE54296,0
10255 RETURN